home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 1 / ACE CD 1.iso / files / utils / gvpscsir.dms / in.adf / Install-SCSI-RAM < prev    next >
Encoding:
Text File  |  1993-03-17  |  1.9 KB  |  53 lines
  1. ; A1200 SCSI/RAM+ Install Script
  2. ; Version 1.00
  3. ; By Gary Nush ----- 23 February 1993
  4.  
  5. ; Written for use with Commodore's Installer.
  6.  
  7. (set instldsk "GVP.Install:")
  8.  
  9. ; ========================
  10. ; If the user has booted from this floppy, we need to find out
  11. ; where the usual SYS: partition is.  Try a few looks about the system...
  12. ; Currently looks for WB_3.x:, System3.0:, dh0:, or Workbench3.0:.  Ask
  13. ; user if we can't figure out where s/he boots from, and/or for confirmation.
  14.  
  15. (set target (getassign "wb_3.x" 'd'))             ; Device-only check.
  16. (if (= target "")
  17.     (set target (getassign "System3.0" 'v')))     ; VolumeName-only check.
  18. (if (= target "")
  19.     (set target (getassign "Workbench3.0" 'v')))  ; VolumeName-only check.
  20. (if (= target "")
  21.     (set target (getassign "dh0" 'd')))           ; Device-only check.
  22. (if (= target "")
  23.     (set target (getassign "System3.0")))         ; Logical assign check.
  24. (if (= target "")
  25.     (set target (getassign "dh0")))               ; Logical assign check.
  26.  
  27. ; If we're at Wit's End: -- Welcome to Wit's End, population 1?
  28. (if (= target "")
  29.    (set target @default-dest)                     ; default destination
  30. )
  31.  
  32. ; Now, make absolutely, positively sure that we go to the right place.
  33. (set target (askdir (prompt "Which partition do you usually boot from?\n"
  34.                             "The required utilities should be installed there.")
  35.                     (help @askdir-help)
  36.                     (default target)))
  37.  
  38. ; ====================
  39. ; This is where the installation occurs:
  40. ;
  41.  
  42. (copyfiles (source (tackon instldsk "GVP"))
  43.            (dest (tackon target "GVP"))
  44.            (all)
  45.            (infos)
  46.            (confirm)
  47.            (prompt "Shall I install the GVP support software?")
  48.            (help "This software allows you to configure, control, "
  49.                  "and test the A1200 SCSI/RAM+.\n\n"
  50.                  @copyfiles-help))
  51.  
  52. (set @default-dest target)
  53.